home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u304.dms / in.adf / bits2 / multi_scroll.amos / multi_scroll.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1995-07-31  |  4.3 KB  |  210 lines
  1. '********************* 
  2. '*                   * 
  3. '* 5 Scroll Parallax * 
  4. '* code by Junkie    * 
  5. '* gfx by BlockHead  * 
  6. '*                   * 
  7. '* date juin 1991    * 
  8. '*                   * 
  9. '********************* 
  10. Copper Off 
  11. Rem creation de l'ecran
  12. Unpack 6 To 0 : G=Phybase(0)
  13. Screen Open 1,352,80,32,0
  14. Flash Off : Curs Off : Cls 0
  15. Copy G,G+44*29 To Phybase(0)+46*44 : M=Phybase(0)
  16. Copy G+44*27,G+44*60 To Phybase(1)+40*44 : N=Phybase(1)
  17. Copy G+44*60,G+44*97 To Phybase(2)+37*44 : O=Phybase(2)
  18. Copy G+44*96,G+44*136 To Phybase(3)+34*44 : P=Phybase(3)
  19. Copy G+44*135,G+44*178 To Phybase(4)+31*44 : Q=Phybase(4)
  20. Screen Close 0
  21. Rem creation de la copper-list 
  22. Doke $DFF096,2^5 : Rem virer les sprites indesirables 
  23. Reserve As Chip Work 15,6000
  24. J=Start(15)
  25. Rem mise en place des couleurs 
  26. Doke J,$180
  27. Doke J+2,0
  28. Doke J+4,$182
  29. Doke J+6,$333
  30. Doke J+8,$184
  31. Doke J+10,$444
  32. Doke J+12,$186
  33. Doke J+14,$444 : Add J,16
  34. For I=0 To 3 : Doke J,$188+I*2 : Doke J+2,$555 : Add J,4 : Next 
  35. For I=0 To 7 : Doke J,$190+I*2 : Doke J+2,$666 : Add J,4 : Next 
  36. For I=0 To 15 : Doke J,$1A0+I*2 : Doke J+2,$777 : Add J,4 : Next 
  37. Rem mise en place de la copper-list en data
  38. Do 
  39.    Read A,B : If A=0 and B=0 Then Goto SUITE
  40.    Doke J,A : Doke J+2,B : Add J,4
  41. Loop 
  42. Rem nouvelles couleurs 
  43. SUITE:
  44. Doke J,1+256*201
  45. Doke J+2,-2 : Add J,4
  46. For I=15 To 0 Step -1 : Doke J,$1A0+I*2 : Doke J+2,$345 : Add J,4 : Next 
  47. For I=7 To 0 Step -1 : Doke J,$190+I*2 : Doke J+2,$234 : Add J,4 : Next 
  48. For I=0 To 3 : Doke J,$188+I*2 : Doke J+2,$123 : Add J,4 : Next 
  49. Doke J,$180
  50. Doke J+2,$24
  51. Doke J+4,$182
  52. Doke J+6,$1
  53. Doke J+8,$184
  54. Doke J+10,$12
  55. Doke J+12,$186
  56. Doke J+14,$12 : Add J,16
  57. Rem reflet 
  58. Doke J,$108
  59. Doke J+2,-88
  60. Doke J+4,$10A
  61. Doke J+6,-88
  62. Doke J+8,1+256*250
  63. Doke J+10,-2
  64. Add J,12
  65. Rem finb du reflet remise du noir  
  66. Doke J,$180
  67. Doke J+2,0
  68. Rem fin copper_list
  69. Loke J+4,-2
  70. Rem dma blitter et copper actives
  71. Doke $DFF096,2^15+2^6+2^7
  72. Rem copcon=1 le copper utilise le blitter
  73. Bset 0,$DFF02E
  74. Rem adresse de la copper-list et demarrage 
  75. Loke $DFF080,Start(15)
  76. Doke $DFF088,0
  77. '---- debut copper list ---- 
  78. Rem ouverture ecran
  79. Data $180,0
  80. Data $102,0
  81. Data $104,0
  82. Data $108,0
  83. Data $10A,0
  84. Data $8E,130*256+120
  85. Data $90,255*256+200
  86. Data $92,$30
  87. Data $94,$D8
  88. Data $F0,M/65536
  89. Data $F2,M
  90. Data $EC,N/65536
  91. Data $EE,N
  92. Data $E8,O/65536
  93. Data $EA,O
  94. Data $E4,P/65536
  95. Data $E6,P
  96. Data $E0,Q/65536
  97. Data $E2,Q
  98. Data $100,5*2^12
  99. Data $96,$8180
  100. '----- scroll bitplan 1 -----
  101. Data 1,0
  102. Data $40,2^12+2^11+2^8+%11110000
  103. Data $42,0
  104. Data $44,$FFFF
  105. Data $46,$FFFF
  106. Data $64,0
  107. Data $66,0
  108. Data $50,Q/65536
  109. Data $52,Q
  110. Data $54,Q/65536
  111. Data $56,Q
  112. Data $58,22+72*64
  113. '---- scroll bitplan 2 ----- 
  114. Data 1,0
  115. Data $40,2^13+2^11+2^8+%11110000
  116. Data $50,P/65536
  117. Data $52,P
  118. Data $54,P/65536
  119. Data $56,P
  120. Data $58,22+72*64
  121. '---- scroll bitplan 3 ----
  122. Data 1,0
  123. Data $40,2^13+2^12+2^11+2^8+%11110000
  124. Data $50,O/65536
  125. Data $52,O
  126. Data $54,O/65536
  127. Data $56,O
  128. Data $58,22+72*64
  129. '---- scroll bitplan 4 ----
  130. Data 1,0
  131. Data $40,2^14+2^11+2^8+%11110000
  132. Data $50,N/65536
  133. Data $52,N
  134. Data $54,N/65536
  135. Data $56,N
  136. Data $58,22+72*64
  137. '---- scroll bitplan 5 ----
  138. Data 1,0
  139. Data $40,2^14+2^12+2^11+2^8+%11110000
  140. Data $50,M/65536
  141. Data $52,M
  142. Data $54,M/65536
  143. Data $56,M
  144. Data $58,22+72*64
  145. '---- retour bitplan 1 ----
  146. Data 1,0
  147. Data $40,15*2^12+2^11+2^10+2^8+%11100100
  148. Data $44,$FFFF
  149. Data $64,42
  150. Data $62,42
  151. Data $66,42
  152. Data $70,1
  153. Data $50,Q/65536
  154. Data $52,Q+86
  155. Data $4C,Q/65536
  156. Data $4E,Q+42
  157. Data $54,Q/65536
  158. Data $56,Q+42
  159. Data $58,1+71*64
  160. '---- retour bitplan 2 ----
  161. Data 1,0
  162. Data $40,14*2^12+2^11+2^10+2^8+%11100100
  163. Data $70,3
  164. Data $50,P/65536
  165. Data $52,P+86
  166. Data $4C,P/65536
  167. Data $4E,P+42
  168. Data $54,P/65536
  169. Data $56,P+42
  170. Data $58,1+71*64
  171. '---- retour bitplan 3 ----
  172. Data 1,0
  173. Data $40,13*2^12+2^11+2^10+2^8+%11100100
  174. Data $70,7
  175. Data $50,O/65536
  176. Data $52,O+86
  177. Data $4C,O/65536
  178. Data $4E,O+42
  179. Data $54,O/65536
  180. Data $56,O+42
  181. Data $58,1+71*64
  182. '---- retour bitplan 4 ----
  183. Data 1,0
  184. Data $40,12*2^12+2^11+2^10+2^8+%11100100
  185. Data $70,15
  186. Data $50,N/65536
  187. Data $52,N+86
  188. Data $4C,N/65536
  189. Data $4E,N+42
  190. Data $54,N/65536
  191. Data $56,N+42
  192. Data $58,1+71*64
  193. '---- retour bitplan 5 ----
  194. Data 1,0
  195. Data $40,11*2^12+2^11+2^10+2^8+%11100100
  196. Data $70,31
  197. Data $50,M/65536
  198. Data $52,M+86
  199. Data $4C,M/65536
  200. Data $4E,M+42
  201. Data $54,M/65536
  202. Data $56,M+42
  203. Data $58,1+71*64
  204. '---- fin copper list ----   
  205. Data 1+256*200,$FFFE
  206. Data $1BE,$567
  207. Data 0,0
  208. Wait Key : Copper On 
  209. Doke $DFF096,2^15+2^5
  210. Screen Close 1